home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / vol_200 / 223_01 / rename.c < prev    next >
Text File  |  1980-01-01  |  512b  |  21 lines
  1. /*    
  2. ** rename(old,new) char *old, *new;    by F.A.Scacchitti  9/11/84
  3. */
  4.  
  5. #define NOCCARGC
  6. #include <stdio.h>
  7.  
  8.    static int fcbloc;
  9.  
  10. rename(old,new) char *old, *new; {
  11.  
  12.    if ((fcbloc = grabio()) == NULL) return(ERR);
  13.    fcb(fcbloc, old);
  14.    fcb(fcbloc + 16, new);
  15.    freeio(fcbloc);
  16.  
  17.    if(bdos(23,fcbloc) >= 0) return(NULL);
  18.    return(ERR);
  19. }
  20.  
  21.